home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / dev / moni / SystemViewer.lha / Source / SysMounts.c < prev    next >
Encoding:
C/C++ Source or Header  |  1999-12-05  |  7.5 KB  |  298 lines
  1. /*
  2.  *  Source machine generated by GadToolsBox V2.0b
  3.  *  which is (c) Copyright 1991-1993 Jaba Development
  4.  *
  5.  *  GUI Designed by : Jim Steichen
  6.  */
  7.  
  8. #include <exec/types.h>
  9. #include <intuition/intuition.h>
  10. #include <intuition/classes.h>
  11. #include <intuition/classusr.h>
  12. #include <intuition/imageclass.h>
  13. #include <intuition/gadgetclass.h>
  14. #include <libraries/gadtools.h>
  15. #include <graphics/displayinfo.h>
  16. #include <graphics/gfxbase.h>
  17. #include <clib/exec_protos.h>
  18. #include <clib/intuition_protos.h>
  19. #include <clib/gadtools_protos.h>
  20. #include <clib/graphics_protos.h>
  21. #include <clib/utility_protos.h>
  22. #include <string.h>
  23. #include <clib/diskfont_protos.h>
  24.  
  25. #define GD_MLV                                 0
  26. #define GD_Update                              1
  27. #define GD_Cancel                              2
  28.  
  29. #define ATS_CNT 3
  30.  
  31. PRIVATE char ver[] = "$VER: SysMounts 1.0 (12/20/1999) by J.T. Steichen";
  32.  
  33. struct Screen *Scr = NULL;
  34. UBYTE *PubScreenName = "Workbench";
  35. APTR VisualInfo = NULL;
  36. struct Window *ATSWnd = NULL;
  37. struct Gadget *ATSGList = NULL;
  38. struct IntuiMessage ATSMsg;
  39. struct Gadget *ATSGadgets[3];
  40. UWORD ATSLeft = 0;
  41. UWORD ATSTop = 14;
  42. UWORD ATSWidth = 632;
  43. UWORD ATSHeight = 228;
  44. UBYTE *ATSWdt = ( UBYTE * ) "AmigaTalk System Mounts Info:";
  45. struct TextAttr *Font, Attr;
  46. UWORD FontX, FontY;
  47. UWORD OffX, OffY;
  48. struct TextFont *ATSFont = NULL;
  49.  
  50. extern struct MinList MLV0List;
  51.  
  52. struct Node MLV0Nodes[] = {
  53.    ( struct Node * ) & MLV0List.mlh_Tail, ( struct Node * ) & MLV0List.mlh_Head, 0, 0, "Address  Device Hd Sec Buff  Cyl   I   HandlerName Size  Full RW Volume"};
  54.  
  55. struct MinList MLV0List = {
  56.    ( struct MinNode * ) & MLV0Nodes[0], ( struct MinNode * ) NULL, ( struct MinNode * ) & MLV0Nodes[0]};
  57.  
  58. UWORD ATSGTypes[] = {
  59.    LISTVIEW_KIND,
  60.    BUTTON_KIND,
  61.    BUTTON_KIND
  62.    };
  63.  
  64. PRIVATE int MLVClicked( void )
  65.    {
  66.    /* routine when gadget "" is clicked. */
  67.    }
  68.  
  69. PRIVATE int UpdateClicked( void )
  70.    {
  71.    /* routine when gadget "_Update" is clicked. */
  72.    }
  73.  
  74. PRIVATE int CancelClicked( void )
  75.    {
  76.    /* routine when gadget "_Cancel" is clicked. */
  77.    }
  78.  
  79. struct NewGadget ATSNGad[] = {
  80.    2, 3, 627, 200, NULL, NULL, GD_MLV, 0, NULL, ( APTR ) MLVClicked,
  81.    4, 205, 71, 17, ( UBYTE * ) "_Update", NULL, GD_Update, PLACETEXT_IN, NULL, ( APTR ) UpdateClicked,
  82.    554, 205, 72, 17, ( UBYTE * ) "_Cancel", NULL, GD_Cancel, PLACETEXT_IN, NULL, ( APTR ) CancelClicked
  83.    };
  84.  
  85. ULONG ATSGTags[] = {
  86.    ( GTLV_ReadOnly ), TRUE, ( LAYOUTA_Spacing ), 2, ( TAG_DONE ),
  87.    ( GT_Underscore ), '_', ( TAG_DONE ),
  88.    ( GT_Underscore ), '_', ( TAG_DONE )
  89.    };
  90.  
  91. static UWORD ComputeX( UWORD value )
  92.    {
  93.    return ( ( UWORD ) ( ( ( FontX * value ) + 4 ) / 8 ) );
  94.    }
  95.  
  96. static UWORD ComputeY( UWORD value )
  97.    {
  98.    return ( ( UWORD ) ( ( ( FontY * value ) + 4 ) / 8 ) );
  99.    }
  100.  
  101. static void ComputeFont( UWORD width, UWORD height )
  102.    {
  103.    Forbid(  );
  104.    Font = &Attr;
  105.    Font->ta_Name = ( STRPTR ) GfxBase->DefaultFont->tf_Message.mn_Node.ln_Name;
  106.    Font->ta_YSize = FontY = GfxBase->DefaultFont->tf_YSize;
  107.    FontX = GfxBase->DefaultFont->tf_XSize;
  108.    Permit(  );
  109.  
  110.    OffX = Scr->WBorLeft;
  111.    OffY = Scr->RastPort.TxHeight + Scr->WBorTop + 1;
  112.  
  113.    if ( width && height )
  114.       {
  115.       if ( ( ComputeX( width ) + OffX + Scr->WBorRight ) > Scr->Width )
  116.          goto UseTopaz;
  117.       if ( ( ComputeY( height ) + OffY + Scr->WBorBottom ) > Scr->Height )
  118.          goto UseTopaz;
  119.       }
  120.    return;
  121.  
  122. UseTopaz:
  123.    Font->ta_Name = ( STRPTR ) "topaz.font";
  124.    FontX = FontY = Font->ta_YSize = 8;
  125.    }
  126.  
  127. PRIVATE int MLVClicked( void )
  128.    {
  129.    /* routine when gadget "" is clicked. */
  130.    }
  131.  
  132. PRIVATE int UpdateClicked( void )
  133.    {
  134.    /* routine when gadget "_Update" is clicked. */
  135.    }
  136.  
  137. PRIVATE int CancelClicked( void )
  138.    {
  139.    /* routine when gadget "_Cancel" is clicked. */
  140.    }
  141.  
  142. PRIVATE int ATSCloseWindow( void )
  143.    {
  144.    /* routine for "IDCMP_CLOSEWINDOW". */
  145.    }
  146.  
  147. int SetupScreen( void )
  148.    {
  149.    if ( !( Scr = LockPubScreen( PubScreenName ) ) )
  150.       return ( 1L );
  151.  
  152.    ComputeFont( 0, 0 );
  153.  
  154.    if ( !( VisualInfo = GetVisualInfo( Scr, TAG_DONE ) ) )
  155.       return ( 2L );
  156.  
  157.    return ( 0L );
  158.    }
  159.  
  160. void CloseDownScreen( void )
  161.    {
  162.    if ( VisualInfo )
  163.       {
  164.       FreeVisualInfo( VisualInfo );
  165.       VisualInfo = NULL;
  166.       }
  167.  
  168.    if ( Scr )
  169.       {
  170.       UnlockPubScreen( NULL, Scr );
  171.       Scr = NULL;
  172.       }
  173.    }
  174.  
  175. int HandleATSIDCMP( void )
  176.    {
  177.    struct IntuiMessage *m;
  178.    int ( *func ) (  );
  179.    BOOL running = TRUE;
  180.  
  181.    while ( running == TRUE )
  182.       {
  183.       if ( ( m = GT_GetIMsg( ? ? Wnd->UserPort ) ) == NULL )
  184.          {
  185.          ( void ) Wait( 1L << ? ? Wnd->UserPort->mp_SigBit );
  186.          continue;
  187.          }
  188.  
  189.       CopyMem( ( char * ) m, ( char * ) &ATSMsg, ( long ) sizeof( struct IntuiMessage ) );
  190.  
  191.       GT_ReplyIMsg( m );
  192.  
  193.       switch ( ATSMsg.Class )
  194.          {
  195.  
  196.          case IDCMP_REFRESHWINDOW:
  197.             GT_BeginRefresh( ATSWnd );
  198.             GT_EndRefresh( ATSWnd, TRUE );
  199.             break;
  200.  
  201.          case IDCMP_CLOSEWINDOW:
  202.             running = ATSCloseWindow(  );
  203.             break;
  204.  
  205.          case IDCMP_GADGETUP:
  206.          case IDCMP_GADGETDOWN:
  207.             func = ( void * ) ( ( struct Gadget * ) ATSMsg.IAddress )->UserData;
  208.             running = func(  );
  209.             break;
  210.             }
  211.       }
  212.    return ( running );
  213.    }
  214.  
  215. int OpenATSWindow( void )
  216.    {
  217.    struct NewGadget ng;
  218.    struct Gadget *g;
  219.    UWORD lc, tc;
  220.    UWORD wleft = ATSLeft, wtop = ATSTop, ww, wh;
  221.  
  222.    ComputeFont( ATSWidth, ATSHeight );
  223.  
  224.    ww = ComputeX( ATSWidth );
  225.    wh = ComputeY( ATSHeight );
  226.  
  227.    if ( ( wleft + ww + OffX + Scr->WBorRight ) > Scr->Width )
  228.       wleft = Scr->Width - ww;
  229.    if ( ( wtop + wh + OffY + Scr->WBorBottom ) > Scr->Height )
  230.       wtop = Scr->Height - wh;
  231.  
  232.    if ( !( ATSFont = OpenDiskFont( Font ) ) )
  233.       return ( 5L );
  234.  
  235.    if ( !( g = CreateContext( &ATSGList ) ) )
  236.       return ( 1L );
  237.  
  238.    for ( lc = 0, tc = 0; lc < ATS_CNT; lc++ )
  239.       {
  240.  
  241.       CopyMem( ( char * ) &ATSNGad[lc], ( char * ) &ng, ( long ) sizeof( struct NewGadget ) );
  242.  
  243.       ng.ng_VisualInfo = VisualInfo;
  244.       ng.ng_TextAttr = Font;
  245.       ng.ng_LeftEdge = OffX + ComputeX( ng.ng_LeftEdge );
  246.       ng.ng_TopEdge = OffY + ComputeY( ng.ng_TopEdge );
  247.       ng.ng_Width = ComputeX( ng.ng_Width );
  248.       ng.ng_Height = ComputeY( ng.ng_Height );
  249.  
  250.       ATSGadgets[lc] = g = CreateGadgetA( ( ULONG ) ATSGTypes[lc], g, &ng, ( struct TagItem * ) & ATSGTags[tc] );
  251.  
  252.       while ( ATSGTags[tc] )
  253.          tc += 2;
  254.       tc++;
  255.  
  256.       if ( NOT g )
  257.          return ( 2L );
  258.       }
  259.  
  260.    if ( !( ATSWnd = OpenWindowTags( NULL,
  261.                                     WA_Left, wleft,
  262.                                     WA_Top, wtop,
  263.                                     WA_Width, ww + OffX + Scr->WBorRight,
  264.                                     WA_Height, wh + OffY + Scr->WBorBottom,
  265.                                     WA_IDCMP, LISTVIEWIDCMP | BUTTONIDCMP | IDCMP_CLOSEWINDOW | IDCMP_REFRESHWINDOW,
  266.                                     WA_Flags, WFLG_DRAGBAR | WFLG_DEPTHGADGET | WFLG_CLOSEGADGET | WFLG_SMART_REFRESH | WFLG_ACTIVATE | WFLG_RMBTRAP,
  267.                                     WA_Gadgets, ATSGList,
  268.                                     WA_Title, ATSWdt,
  269.                                     WA_ScreenTitle, "AmigaTalk System Info",
  270.                                     TAG_DONE ) ) )
  271.       return ( 4L );
  272.  
  273.    GT_RefreshWindow( ATSWnd, NULL );
  274.  
  275.    return ( 0L );
  276.    }
  277.  
  278. void CloseATSWindow( void )
  279.    {
  280.    if ( ATSWnd )
  281.       {
  282.       CloseWindow( ATSWnd );
  283.       ATSWnd = NULL;
  284.       }
  285.  
  286.    if ( ATSGList )
  287.       {
  288.       FreeGadgets( ATSGList );
  289.       ATSGList = NULL;
  290.       }
  291.  
  292.    if ( ATSFont )
  293.       {
  294.       CloseFont( ATSFont );
  295.       ATSFont = NULL;
  296.       }
  297.    }
  298.